home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Eagles Nest BBS 1
/
Eagles_Nest_Mac_Collection_Disc_1.TOAST
/
HyperCard & XCMD⁄XFCN
/
HamNovTest41
/
Novice Ham Test
/
card_2360.txt
< prev
next >
Wrap
Text File
|
1993-04-11
|
2KB
|
98 lines
-- card: 2360 from stack: in
-- bmap block id: 11326
-- flags: 4000
-- background id: 2209
-- name: EXAM
----- HyperTalk script -----
on openCard
global immediate,lockkey
set hilite of button "Immediate Review" to true
show card field waitplease
if lockkey is false then
buildList
end if
hide card field waitplease
end openCard
-- part 8 (button)
-- low flags: 00
-- high flags: C005
-- rect: left=17 top=311 right=335 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Immediate Review
----- HyperTalk script -----
on mouseUp
global immediate
if hilite of button "Immediate Review" is false then
put true into immediate
set hilite of button "Immediate Review" to true
else
put false into immediate
set hilite of button "Immediate Review" to false
end if
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=426 top=285 right=338 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: print test
----- HyperTalk script -----
on mouseUp
global questlist
show card field waitplease
lock screen
go to card K
print this card
open printing with dialog
repeat with i = 1 to number of items of questlist
put item i of questlist into thisquest
go to card thisquest
print this card
end repeat
close printing
go to first card
unlock screen
hide card field waitplease
end mouseUp
-- part 12 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=333 top=172 right=224 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: waitplease
-- part contents for card part 12
----- text -----
PLEASE BE PATIENT
THIS PROCESS
TAKES TIME....